140 HCOLOR= 3: HPLOT X,Y +8 TO X +5,Y +8: HOME : GET C$
150 IF C$ = CHR$(14) THEN CALL -198:UL = 1: GOTO 140
160 IF C$ = CHR$(27) THEN UC = 1: CALL -198: GOTO 140
170 IF C$ = CHR$(12) THEN CALL -198:UL = 0: GOTO 140
180 IF C$ = CHR$(13) THEN HCOLOR= 0: HPLOT X,Y +8 TO X +5,Y +8:X = 2:Y = Y +10: GOSUB 270: GOTO 140
190 IF C$ = CHR$(8) THEN HCOLOR= 0: HPLOT X,Y +8 TO X +5,Y +8:X = X -7: GOSUB 270: GOTO 140
200 IF C$ = CHR$(21) THEN HCOLOR= 0: HPLOT X,Y +8 TO X +5,Y +8:X = X +7: GOSUB 270: GOTO 140
210 CC = ASC(C$) -31
220 IF (UL OR UC) AND ( ASC(C$) >64 AND ASC(C$) <91) THEN CC = CC +28
230 IF ((UL = 0) AND (UC = 0)) AND ( ASC(C$) >64 AND ASC(C$) <91) THEN HCOLOR= 0: FOR L = X TO X +5: HPLOT L,Y TO L,Y +7: NEXT L: HCOLOR= 3:Y = Y +1: DRAW CC AT X,Y:Y = Y -1: GOTO 250
240 HCOLOR= 0: FOR L = X TO X +5: HPLOT L,Y TO L,Y +7: NEXT L: HCOLOR= 3: DRAW CC AT X,Y: IF UC THEN UC = 0
250 HCOLOR= 0: HPLOT X,Y +8 TO X +5,Y +8:X = X +7: GOSUB 270